home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Peter Lewis / PNL Libraries / MyServices.p < prev    next >
Encoding:
Text File  |  1994-10-04  |  787 b   |  45 lines  |  [TEXT/PJMM]
  1. unit MyServices;
  2.  
  3. interface
  4.  
  5.     const
  6.         echo_port = 7;
  7.         discard_port = 9;
  8.         systat_port = 11;
  9.         daytime_port = 13;
  10.         netstat_port = 15;
  11.         chargen_port = 19;
  12.         ftp_data_port = 20;
  13.         ftp_port = 21;
  14.         telnet_port = 23;
  15.         smtp_port = 25;
  16.         time_port = 37;
  17.         dns_port = 53;
  18.         tftp_port = 69;
  19.         gopher_port = 70;
  20.         finger_port = 79;
  21.         http_port = 80;
  22.         pop2_port = 109;
  23.         pop3_port = 110;
  24.         ident_port = 113;
  25.         nntp_port = 119;
  26.         ntp_port = 123;
  27.         at_rtmp_port = 201;
  28.         at_nbp_port = 202;
  29.         at_echo_port = 204;
  30.         at_zis_port = 206;
  31.         exec_port = 512;
  32.         biff_port = 512;
  33.         login_port = 513;
  34.         who_port = 513;
  35.         shell_port = 514; { rsh, rlogin }
  36.         syslog_port = 514;
  37.         lineprinter_port = 515;
  38.         otalk_port = 517;
  39.         ntalk_port = 518;
  40.         route_port = 520;
  41.         archie_port = 1525;
  42.  
  43. implementation
  44.  
  45. end.